home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / M-More Monthly Disks / (c)m7.d64 / ins_del demo.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  108 lines
  1. 100 REM"Q=DSAVE"@INS/DEL DEMO64",D1
  2. 110 :
  3. 120 IN[178]49152: DL[178]IN[170]3 : BG[178]IN[170]6
  4. 130 DI[178]IN[170]9 : EN[178]IN[170]12: SM[178]IN[170]15
  5. 140 NS[178]IN[170]18: PZ[178]IN[170]21: SR[178]IN[170]24
  6. 145 :
  7. 150 P[178]0: E[178]0: NV[178]125 : NF$[178]".....NOT FOUNDWAIT ..........": L[178]1: ZZ[178]0
  8. 160 BL$[178]"           ": [158] DI: [153] [199](8): [153] [199](14)
  9. 170 SS[178]0: TT[178]0: K$[178]"": K[178]0: A[178]0: Z1[178]0: WK[178]0: WK$[178]""
  10. 180 [134] KY$(200),B(200),C%(200)
  11. 190 :
  12. 200 [129] I[178]65 [164] 69
  13. 210 [129] J[178]65 [164] 69
  14. 220 [129] K[178]65 [164] 69
  15. 230 KY$(L)[178][199](I)[170][199](J)[170][199](K)[170]"  "
  16. 235 B(L)[178]L: C%(L)[178]L: L[178]L[170]1
  17. 240 [153] KY$(L[171]1);
  18. 250 [130] K,J,I
  19. 270 [153]
  20. 280 [129] Z1[178]1 [164] 1E6:[141] 1000:[130] Z1
  21. 290 [158] EN: [153] [199](9): [153] [199](142)
  22. 300 [128]
  23. 1000 :
  24. 1001 [143] **  MAIN LOOP OF PROGRAM  **
  25. 1002 :
  26. 1010 [133]"S/B A/D/S,KEY";CD$,K$
  27. 1020 K$[178][200](K$[170]"     ",5)
  28. 1030 [139] CD$[178]"SA" [167] TT[178]TI: [141] 2000: SS[178]TI[171]TT
  29. 1040 [139] CD$[178]"SD" [167] TT[178]TI: [141] 3000: SS[178]TI[171]TT
  30. 1050 [139] CD$[178]"SS" [167] TT[178]TI: [141] 4000: SS[178]TI[171]TT: [139] P[178]0 [167] [153] NF$
  31. 1060 [139] CD$[178]"BA" [167] TT[178]TI: [141] 5000: SS[178]TI[171]TT
  32. 1070 [139] CD$[178]"BD" [167] TT[178]TI: [141] 6000: SS[178]TI[171]TT
  33. 1080 [139] CD$[178]"BS" [167] TT[178]TI: [141] 7000: SS[178]TI[171]TT: [139] P[178]0 [167] [153] NF$
  34. 1085 [139] CD$[178]"PP" [167] [129] I[178]1 [164] NV:[153] KY$(I);: [130] I: [153]: [142]
  35. 1086 [139] CD$[178]"XX" [167] Z1[178]1E6: [142]
  36. 1090 WK[178][181](SS[173].6)[173]100[170].001
  37. 1100 WK$[178][196](WK): WK$[178][200](WK$,[195](WK$)[171]1)
  38. 1110 [153]"ON.....";[200](BL$,7[171][195](WK$));WK$;" SECSWAIT"
  39. 1120 [142]
  40. 2000 :
  41. 2001 [143] **  SEQUENTIAL ADD  **
  42. 2002 :
  43. 2010 [129] K[178]NV [164] 1 [169] [171]1
  44. 2020 : [139] K$[177][178]KY$(K) [167] 2050
  45. 2030 : KY$(K[170]1)[178]KY$(K): B(K[170]1)[178]B(K): C%(K[170]1)[178]C%(K)
  46. 2040 [130] K
  47. 2050 KY$(K[170]1)[178]K$: B(K[170]1)[178]K: C%(K[170]1)[178]K
  48. 2060 NV[178]NV[170]1
  49. 2070 [142]
  50. 3000 :
  51. 3001 [143] **  SEQUENTIAL DELETE  **
  52. 3002 :
  53. 3010 [141] 4000
  54. 3020 [139] P[178]0 [167] [153] NF$: [142]
  55. 3030 [129] K[178]P [164] NV[171]1
  56. 3040 : KY$(K)[178]KY$(K[170]1): B(K)[178]B(K[170]1): C%(K)[178]C%(K[170]1)
  57. 3050 [130] K
  58. 3060 KY$(NV)[178]"": B(NV)[178]0: C%(NV)[178]0
  59. 3070 NV[178]NV[171]1
  60. 3080 [142]
  61. 4000 :
  62. 4001 [143] **  SEQUENTIAL SEARCH  **
  63. 4002 :
  64. 4010 P[178]0
  65. 4020 [129] K[178]1 [164] NV
  66. 4030 : [139] KY$(K)[177]K$ [167] P[178]0: K[178]NV
  67. 4040 : [139] KY$(K)[178]K$ [167] P[178]K: K[178]NV
  68. 4050 [130] K
  69. 4060 [142]
  70. 5000 :
  71. 5001 [143] **  BINARY ADD  **
  72. 5002 :
  73. 5010 [141] 7000
  74. 5020 [139] NV[178]0 [167] KY$(1)[178]K$: NV[178]1: [142]
  75. 5030 [139] P[177]0 [167] [153]"EXISTS";:[142]
  76. 5040 P[178]K[171]2: [139] P[179]1 [167] P[178]1
  77. 5050 NV[178]NV[170]1
  78. 5060 [129] K[178]P [164] P[170]3
  79. 5070 : [139] K$[179]KY$(K) [167] P[178]K: [137] 5100
  80. 5080 [130] K
  81. 5090 KY$(NV)[178]K$: B(NV)[178]0: C%(NV)[178]0: [142]
  82. 5100 E[178]NV
  83. 5120 [158] DL,0,P,E,KY$(0),B(0),C%(0),ZZ
  84. 5130 KY$(P)[178]K$: B(P)[178]P: C%(P)[178]P
  85. 5140 [142]
  86. 6000 :
  87. 6001 [143] **  BINARY DELETE  **
  88. 6002 :
  89. 6010 [141] 7000
  90. 6020 [139] P[178]0 [167] [153] NF$: [142]
  91. 6030 E[178]NV
  92. 6040 [139] P[178]NV [167] 6070
  93. 6060 [158] DL,1,P,E,KY$(0),B(0),C%(0),ZZ
  94. 6070 KY$(NV)[178]"": B(NV)[178]0: C%(NV)[178]0
  95. 6080 NV[178]NV[171]1
  96. 6090 [142]
  97. 7000 :
  98. 7001 [143] **  BINARY SEARCH  **
  99. 7002 :
  100. 7010 I[178]1: J[178]NV
  101. 7020 [139] I[177]J [167] P[178]0: [142]
  102. 7030 K[178][181]((I[170]J[170]1)[173]2)
  103. 7040 [139] K$[178]KY$(K) [167] P[178]K: [142]
  104. 7050 [139] K$[179]KY$(K) [167] J[178]K[171]1
  105. 7060 [139] K$[177]KY$(K) [167] I[178]K[170]1
  106. 7070 [137] 7020
  107. 7080 [142]
  108.